2 REM ******************
3 REM *   THE TEMPLE   *
4 REM *    OF DOOM.    *
5 REM *   VERSION--3   *
6 REM ******************
7 POKE775,200
8 U$="0:":W$=",S,R":Z=1:D=0:S=54272:ML=15:B=0:EF=.99
9 L$="[218]":GS=1:DIMA$(21)
10 PRINT"[147]":POKE53280,0:POKE53281,0
12 PRINT"  [164][164][162][162][162]   [146] THE TEMPLE OF DOOM    [146][162][162][162][164][164]"
13 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
15 PRINT"       DISTRIBUTED BY: [154]JIANTWARE"
20 IFRE<>1THENGOSUB2000
30 PRINTTAB(9)"[213][195][195][201] [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
31 PRINTTAB(9)"[194]F1[194] [194]TO PLAY         [194]"
32 PRINTTAB(9)"[194]  [194] [194]                [194]"
33 PRINTTAB(9)"[194]F3[194] [194]FOR INSTRUCTIONS[194]"
34 PRINTTAB(9)"[194]  [194] [194]                [194]"
35 PRINTTAB(9)"[194]F5[194] [194]VIEW ITEMS      [194]"
36 PRINTTAB(9)"[194]  [194] [194]                [194]"
37 PRINTTAB(9)"[194]F7[194] [194]VIEW CREDITS    [194]"
38 PRINTTAB(9)"[202][195][195][203] [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
40 GETA$:IFA$=""THEN40
45 IFA$="[133]"THEN50
46 IFA$="[134]"THEN1600
47 IFA$="[135]"THEN1690
48 IFA$="[136]"THEN1640
49 GOTO40
50 GOSUB1710
51 GOSUB2600
52 GOSUB2070
95 PP=P:P1=P+54272
99 GOSUB852
100 POKEP,CH:POKEP1,1
110 PRINT"":PRINT"[156]LEVEL:";LV;LV$
115 PRINT"[145]SCORE:";SC
120 PRINT"[145]LIVES:";LI
130 IFPEEK(P+40)<>32THENGOTO1000
135 POKES+24,15:POKES+6,9:POKES+5,10:POKES+1,240:POKES+4,17
140 P=P+40:P1=P1+40
145 IFSC>999999THENSC=0:PRINT"      "
150 PRINT"":PRINT"[156]LEVEL:";LV;LV$
155 PRINT"[145]SCORE:";SC
160 PRINT"[145]LIVES:";LI
170 POKEP,CH:POKEP1,1
180 POKEP-40,32:POKEP1-40,0
190 POKES+4,16:GOTO130
200 POKEP,CH:POKEP1,1
214 GOSUB2500
215 IFGE>EFTHENGOSUB 400
220 JY=PEEK(56320):FR=JYAND16:JY=15-(JYAND15)
221 GETQ$:IFQ$=""THEN225
222 IFQ$="K"THENGOSUB1908:GOTO700
223 IFQ$="P"THEN2700
225 IFFR=0THENGOTO300
230 IFJY=0THENGOTO200
231 POKEP,32:POKEP1,0
240 IFJY=8THENP=P+1:P1=P1+1:C=1
250 IFJY=4THENP=P-1:P1=P1-1:C=-1
260 IFPEEK(P)<>32THENP=P-C:P1=P1-C
270 POKEP,CH:POKEP1,1
271 IFC=1ANDCH=114THENCH=115:GOTO280
272 IFC=1THENCH=114
273 IFC=-1ANDCH=116THENCH=117:GOTO280
274 IFC=-1THENCH=116
280 GOTO130
284 IFSC=>X3ANDSC<X2THENX3=SC
300 IFPEEK(P-40)<>32THENGOTO1100
301 POKES+24,5:POKES+6,9:POKES+5,11:POKES+1,2:POKES+4,129
303 POKEP,32:POKEP1,0
304 GOSUB2500
305 IFGE>EFTHENGOSUB400:GOTO130
310 P=P-40:P1=P1-40
320 POKEP,118:POKEP1,1
330 FORT=1TO50:NEXT
340 POKEP,32
350 JY=PEEK(56320):FR=JYAND16:JY=15-(JYAND15)
360 IFJY=8THENP=P+1:P1=P1+1:C=1
370 IFJY=4THENP=P-1:P1=P1-1:C=-1
380 IFPEEK(P)<>32THENP=P-C:P1=P1-C:GOTO130
390 IFFR=0THENPOKES+4,128:GOTO300
395 GOTO100
400 :
405 POKEP,CH:POKEP1,1
410 A=INT(RND(1)*20)+1:A=A*40
420 EN=E+A:CU=EN
430 IFEN<1102OREN>1902THEN410
440 IFPEEK(EN)<>32THEN410
445 SH=RND(1):IFSH=<.49THENF=107:FC=8:CO=32:DL=20
446 IFFC=8THENGOSUB1910
450 IFSH=>.50THENF=108:FC=1:CO=108:CP=1:DL=0
452 IFPEEK(EN)<>32THENGOTO1200
453 IFFC=1THENPOKE54296,15:POKE54296,0
455 POKEEN,F:POKEEN+CC,FC
456 FORT=0TODL:NEXT
460 POKEEN,CO
461 EN=EN-1
465 GOTO452
470 IFF=107THENGOTO499
475 IFPEEK(CU)<>108THENGOTO499
476 POKECU,32:CU=CU-1:GOTO475
499 FC=0:RETURN
620 :
640 DATA 254,254,254,0,247,247,247,0
641 DATA 0,28,20,28,8,62,8,8
642 DATA 119,119,119,34,34,34,0,0
643 DATA 0,0,34,34,34,119,119,119
644 DATA 255,219,253,255,159,251,251,255
645 DATA 0,0,32,67,254,67,32,0
646 DATA 0,0,16,40,36,66,129,0
647 DATA 0,0,0,0,24,60,102,219
648 DATA 0,0,60,60,60,60,0,0
649 DATA 0,0,0,124,254,124,56,16
650 DATA 254,254,254,0,247,247,247,0
651 DATA 24,126,62,124,63,56,8,4
652 DATA 14,14,28,46,73,12,58,2
653 DATA 14,14,24,110,8,20,36,32
654 DATA 112,112,56,116,146,48,92,64
655 DATA 112,112,24,118,16,40,36,4
656 DATA 56,56,16,254,16,56,40,40
657 DATA 1,3,7,0,23,55,119,0
658 DATA 128,192,224,0,232,236,238,0
659 DATA 254,126,62,0,15,7,3,0
660 DATA 255,254,252,0,240,224,192,0
700 :
710 LI=LI-1:IFLI=0THEN800
715 IFCP=1THENGOSUB475
720 FORT=0TO200:NEXT:POKEP,32:P=PP:P1=P+54272:GOTO100
739 POKEP,32
740 GOSUB1915
741 IFPEEK(P-40)<>32THEN710
742 P=P-40:P1=P1-40:POKEP,113:POKEP1,12
743 FORT=0TO50:NEXT:POKEP,32:GOTO741
750 IFPEEK(P+40)<>32THEN710
755 P=P+40:P1=P1+40:POKEP,CH:POKEP1,1
760 FORT=0TO50:NEXT:POKEP,32:GOTO750
800 :
805 CN=1
806 PRINT"0[146]"
810 PRINT"":PRINTTAB(14)"[159][213][195][195][195][195][195][195][195][195][195][201]":PRINTTAB(14)"[145][194]GAME OVER[159][194]"
811 PRINTTAB(14)"[202][195][195][195][195][195][195][195][195][195][203]":FORT=0TO900:NEXT:PRINT""
812 PRINTTAB(11)"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
813 IFB>10THENPRINT"[145][145]":GOTO816
814 PRINTTAB(11)"[145][194][154]BUTTON[146] QUIT    [194]"
815 PRINTTAB(11)"[194]               [194]"
816 PRINTTAB(11)"[145][194][154]  UP  [146] RE-START[194]"
817 PRINTTAB(11)"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
825 GOSUB2300
826 GOSUB1910
830 IFRE=1THENSC=0:LI=3:B=0:EF=.99:GOTO10
835 IFRE=2THENSYS64738
850 :
852 POKEP,CH:POKEP1,0:T=81:GOSUB1922:FORT=0TO200:NEXT
853 POKEP1,11:T=62:GOSUB1922:FORT=0TO200:NEXT
855 POKEP1,12:T=45:GOSUB1922:FORT=0TO200:NEXT
860 POKEP1,15:T=28:GOSUB1922:FORT=0TO200:NEXT
862 POKEP1,1:T=12:GOSUB1922:POKES+4,0:RETURN
940 :
950 POKEP,CH:POKEP1,1:T=12:GOSUB1922:FORT=0TO200:NEXT
952 POKEP1,15:T=28:GOSUB1922:FORT=0TO200:NEXT
954 POKEP1,12:T=45:GOSUB1922:FORT=0TO200:NEXT
956 POKEP1,11:T=62:GOSUB1922:FORT=0TO200:NEXT
958 POKEP1,0:T=81:GOSUB1922:FORT=0TO200:NEXT:POKES+4,0:RETURN
1000 :
1010 IFPEEK(P+40)=>102ANDPEEK(P+40)=<104THENGOTO200
1011 IFPEEK(P+40)=>121ANDPEEK(P+40)=<122THENGOTO200
1015 IFPEEK(P+40)=119THENSL=39:CH=116:GOTO1500
1016 IFPEEK(P+40)=120THENSL=41:CH=114:GOTO1500
1020 IFPEEK(P+40)=105THENGOSUB1908:GOTO710
1030 IFPEEK(P+40)=106THEN739
1040 IFPEEK(P+40)=109THENSC=SC+50:GOSUB1905:GOTO140
1050 IFPEEK(P+40)=110THENSC=SC+75:GOSUB1905:GOTO140
1060 IFPEEK(P+40)=111THENSC=SC+100:GOSUB1905:GOTO140
1070 IFPEEK(P+40)=112THENGOSUB1917:POKEP,32:P=P+80:P1=P1+80:GOTO1190
1100 IFPEEK(P-40)=102THEN130
1101 IFPEEK(P-40)=112THEN130
1102 IFPEEK(P-40)=>119ANDPEEK(P-40)=<122THEN130
1103 IF PEEK(P-40)=>109ANDPEEK(P-40)=<111THEN130
1104 IFPEEK(P-40)=105THEN130
1110 IFPEEK(P-40)=104THENGOSUB1908:GOTO750
1120 IFPEEK(P-40)=103THENGOSUB950:GOSUB1912:GOSUB1710:GOSUB2600:GOSUB2090:GOTO95
1190 POKEP,CH:POKEP1,1:GOTO190
1199 :
1200 IFPEEK(EN)=>114ANDPEEK(EN)=<117THENGOSUB1908:GOTO710
1210 POKEEN+1,32:GOTO470
1300 :
1310 PRINT"[153] LEVEL   [157][157][157]";
1320 C$="-":Q=2:G$=""
1325 PRINTC$"[157]";
1330 GETQ$
1335 IFQ$=CHR$(13)THEN1375
1340 IFQ$=CHR$(20)THENIFLEN(G$)>0THENG$=LEFT$(G$,LEN(G$)-1):GOTO1370
1350 IFQ$=>"0"ANDQ$=<"9"THEN1360
1355 GOTO1325
1360 IFLEN(G$)<QTHENPRINTQ$;:G$=G$+Q$
1365 GOTO1325
1370 PRINT"[157] [157]";:GOTO1325
1375 PRINT" ":L=VAL(G$):IFL=0THEN1310
1376 IFL>10THEN1310
1377 GOSUB1908:PRINT" LEVEL   [157][157][157]";G$
1378 B=L:RETURN
1500 :
1510 P=P+SL:P1=P1+SL
1520 POKEP,CH:POKEP1,1
1530 POKEP-SL,32
1535 IFPEEK(P+SL)=32THENGOTO130
1540 GOTO1000
1600 REM *** INSTRUCTIONS ***
1610 POKE53280,0:POKE53281,0:PRINT"[147]"
1620 PRINT">[156]THE OBJECT OF THE GAME IS TO COLLECT"
1621 PRINT"ALL OF THE TREASURE ON EACH OF"
1622 PRINT"15 LEVELS. YOU MAY NOT ALWAYS BE ABLE"
1623 PRINT"TO GET ALL OF THE TREASURES ON EVERY"
1624 PRINT"LEVEL. TO GET A TREASURE YOU MUST FALL"
1625 PRINT"ON IT FROM ABOVE."
1626 PRINT">[156]YOU MAY LEAVE A LEVEL AT ANY TIME BY"
1627 PRINT"TOUCHING AN ONK ([167]) FROM THE BOTTOM."
1628 PRINT">[156]YOU GET AN EXTRA MAN EVERY THIRD LEVEL."
1629 PRINT">[156]USE THE JOYSTICK IN PORT #2."
1630 PRINT"        PRESS ANY KEY TO CONTINUE"
1631 GETA$:IFA$=""THEN1631
1632 PRINT"[147]":PRINT">[156]AT ANY TIME YOU CAN PAUSE THE GAME BY"
1633 PRINT"PRESSING 'P'."
1634 PRINT">[156]IF YOU EVER GET TRAPPED AND NEED TO"
1635 PRINT"KILL YOURSELF YOU CAN PRESS 'K'."
1636 PRINT"       PRESS ANY KEY TO CONTINUE"
1637 GETA$:IFA$=""THEN1637
1638 RE=1:GOTO10
1640 REM *** CREDITS ***
1641 POKE53280,0:POKE53281,0:PRINT"[147]"
1642 PRINT"GAME DESIGN AND CONCEPT BY: [156]JAMIE CROSS"
1643 PRINT"  I SPENT MANY HOURS WORKING ON THIS"
1644 PRINT"PROGRAM, AND FEEL THAT THE TIME WAS"
1645 PRINT"WELL SPENT. I THINK YOU WILL FIND THIS"
1646 PRINT"GAME ENTERTAINING AND CHALLENGING FOR"
1647 PRINT"QUITE AWHILE. IF YOU DO FIND THAT YOU"
1648 PRINT"LIKE THIS GAME I WOULD GREATLY"
1649 PRINT"APPRECIATE ANY CONTRIBUTION YOU COULD"
1650 PRINT"MAKE. IT WOULD SURELY INCREASE THE"
1651 PRINT"LIKELY HOOD OF ANY SEQUALS OR EXPANSION"
1652 PRINT"LEVELS. IF YOU CAN MAKE A CONTRIBUTION,"
1653 PRINT"INCLUDE YOUR RETURN ADDRESS AND I WILL"
1654 PRINT"NOTIFY YOU IF THERE ARE ANY EXPANSION"
1655 PRINT"LEVELS. I WOULD SEND YOU THEM FREE IF"
1656 PRINT"YOU WERE TO SEND ME A DISK AND A SASE."
1657 PRINT"IF YOU CAN'T MAKE A CONTRIBUTION OR"
1658 PRINT"IF YOU FEEL THE GAME DOESN'T DESERVE"
1659 PRINT"ONE. ID STILL LIKE TO HEAR WHAT YOU"
1670 PRINT"THINK OF THE PROGRAM."
1671 PRINT"       PRESS ANY KEY TO CONTINUE"
1672 GETA$:IFA$=""THEN1672
1673 PRINT"[147]"
1674 PRINT"MY ADDRESS IS:  [156]JAMIE CROSS"
1675 PRINTTAB(16)"130 CASTLE DR #23"
1676 PRINTTAB(16)"BETHLE PARK, PA"
1677 PRINTTAB(16)"15102"
1678 PRINT"      I HOPE YOU ENJOY THE GAME!"
1679 PRINT"      [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1680 PRINT"      PRESS ANY KEY TO CONTINUE"
1681 GETA$:IFA$=""THEN1681
1682 RE=1:GOTO10
1690 REM *** ITEMS ***
1691 POKE53280,0:POKE53281,0:PRINT"[147]"
1692 PRINT"                 ITEMS":PRINT"                 [163][163][163][163][163]"
1693 PRINTTAB(13)"ARROW ------ [149][171]":PRINTTAB(13)"LIGHTENING - [172][172]"
1694 PRINTTAB(13)"JEWEL ------ [153][175]":PRINTTAB(13)"GOLD BLOCK - [158][174]"
1695 PRINTTAB(13)"GOLD COINS - [158][173]":PRINTTAB(13)"LAVA ------- [170]"
1696 PRINTTAB(13)"ONK -------- [167]":PRINTTAB(13)"SPIKES ----- [152][168] [169]"
1697 PRINT"                BEWARE:"
1698 PRINT"[156]   THERE MAY BE OTHER HIDDEN DANGERS!"
1699 PRINT"       PRESS ANY KEY TO CONTINUE"
1700 GETA$:IFA$=""THEN1700
1701 RE=1:GOTO10
1710 IFGS=1THENB=B+1
1715 IFB>MLTHENB=1:EF=EF-.02:LV$=LV$+L$
1720 LV=B
1726 IFD/2=INT(Z)THENLI=LI+1:Z=Z+1
1727 D=D+1
1730 RETURN
1900 :
1905 POKES+24,15:POKES+1,104:POKES+4,17:POKES+5,10:POKES+6,9:POKES+4,16:RETURN
1908 POKES+24,15:POKES+1,15:POKES+6,9:POKES+5,10:POKES+4,17:FORT=1TO60:NEXT
1909 POKES+1,12:FORT=1TO70:NEXT:POKES+4,16:RETURN
1910 POKES+24,15:POKES+1,6:POKES+6,9:POKES+4,33:POKES+5,10:POKES+4,32:RETURN
1912 POKES+24,15:POKES+4,17:POKES,100:POKES+5,17:POKES+6,241:FORT=0TO255
1913 POKES+1,T:NEXT:POKES+4,0:RETURN
1915 POKES+24,15:POKES+1,7:POKES+5,25:POKES,240:POKES+4,129:RETURN
1917 POKES+24,15:POKES+6,9:POKES+5,10:POKES+1,240:POKES+4,17:POKES+4,16:RETURN
1919 POKES+24,15:POKES,29:POKES+1,134:POKES+5,132:POKES+6,128:POKES+15,67
1920 POKES+14,14:POKES+4,19:FORT=0TO80:NEXT:POKES+4,0:RETURN
1922 POKES+24,15:POKES+6,9:POKES+5,10:POKES+1,T:POKES+4,17:POKE2+4,16:RETURN
2000 C=6:POKE53272,(PEEK(53272)AND240)OR2*C
2010 Q=53248:E=55296:N=12288
2020 POKE56333,127:POKE1,51
2030 L=E-Q:EN=L+N
2031 A%=L/256:A=L-256*A%:V=EN-A:B%=V/256:W=EN-256*B%-A:VV=E-A:C%=VV/256
2035 C=E-256*C%-A
2040 POKE781,A%+1:POKE782,A:POKE90,C:POKE91,C%:POKE88,W:POKE89,B%:SYS41964
2045 POKE1,55:POKE56333,129
2050 POKE56,48
2060 FORDA=13104TO13271:READGR:POKEDA,GR:NEXT
2065 RETURN
2070 LV=B:SC=0:LI=3:CC=54272:CH=114:E=1102
2090 FORT=1024TO1063:POKET,102:POKET+CC,BC:NEXT:FORT=1904TO1943:POKET,102
2100 POKET+CC,BC:NEXT:FORT=1064TO1904STEP40:POKET,102:POKET+CC,BC:NEXT
2110 FORT=1063TO1943STEP40:POKET,102:POKET+CC,BC:NEXT
2111 FORT=0TO1500:NEXT
2115 FORT=1944TO1983:POKET,160:POKET+CC,4:NEXT:FORT=1984TO2023:POKET,160
2116 POKET+CC,4:NEXT
2130 RETURN
2300 :
2310 JY=PEEK(56320):FR=JYAND16:JY=15-(JYAND15)
2311 IFB>10THENGOTO2321
2320 IFFR=0THENGOSUB1908:RE=2:RETURN
2321 IFCN=1ANDJY=1THENRE=1:RETURN
2330 GOTO 2310
2500 :
2510 GE=RND(1)
2520 RETURN
2600 :
2605 V$="B"+STR$(B)
2610 OPEN2,8,2,U$+V$+W$
2620 FORI=0TO21:INPUT#2,A$(I):NEXTI
2630 INPUT#2,P
2640 INPUT#2,BC
2650 PRINT"[147]":POKE53280,3:POKE53281,0
2660 FORI=0TO21:PRINT"[145]"A$(I):NEXT
2670 CLOSE2
2680 RETURN
2700 :
2701 GOSUB1919
2702 POKE53280,14
2705 GETQ$:IFQ$<>"P"THEN2705
2706 GOSUB1919
2710 POKE53280,3:GOTO100